home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD026B.D64 / the games menu!! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  32 lines
  1. 1 DV=PEEK(186):IFDV<8THENDV=8
  2. 10 POKE53272,23:POKE53281,6:POKE53280,14:POKE646,1:PRINT"[147]"
  3. 11 GOSUB500
  4. 20 PRINT"[147]             [212][200][197] [199][193][205][197][211] [205][197][206][213]":PRINT"             [163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  5. 30 PRINT:PRINT"  1. [201][212]'[211] [205][193][199][201][195]! FROM [195]RYSTAL [211]OFTWARE"
  6. 40 PRINT:PRINT"  2. [212][207][212][193][204] [197][195][204][201][208][211][197] [201][201] - [211][208][200][201][206][216] [202][201][206][216]"
  7. 50 PRINT"     BY [201]NCENTIVE [211]OFTWARE"
  8. 60 PRINT:PRINT"  3. [193][212][212][193][195][203] [207][198][160][212][200][197][160][205][213][212][193][206][212] [195][193][205][197][204][211]"
  9. 70 PRINT"     BY [202]EFF [205]INTER/[204]LAMASOFT"
  10. 80 PRINT:PRINT"    [208]RESS 1,2 OR 3 TO LOAD THE GAME!  "
  11. 90 GETK$:IFK$=""THEN90
  12. 100 IFVAL(K$)<0 OR VAL(K$)>3 THEN 90
  13. 110 ON VAL(K$) GOTO 200,300,400
  14. 120 GOTO90
  15. 200 PRINT"[147]LOAD"CHR$(34)"IT'S MAGIC"CHR$(34)","DV",1"
  16. 210 POKE631,19:POKE632,13:POKE198,2:END
  17. 300 PRINT"[147]LOAD"CHR$(34)"TOTAL ECLIPSE 2"CHR$(34)","DV:PRINT"RUN"
  18. 310 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
  19. 400 PRINT"[147]LOAD"CHR$(34)"ATTACK/MUT/CAMEL"CHR$(34)","DV:PRINT"RUN"
  20. 410 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
  21. 500 PRINT"[147]                [215][193][210][206][201][206][199]!"
  22. 510 PRINTSPC(16)"[163][163][163][163][163][163][163][163]"
  23. 520 PRINT:PRINT"    [201]F YOU ARE LOADING FROM THE 3.5"CHR$(34)
  24. 530 PRINT:PRINT"  COVERDISK, YOUR DRIVE [205][213][211][212] BE SET TO"
  25. 540 PRINT:PRINT"   [196][197][214][201][195][197] 8 FOR [201][212]'[211] [205][193][199][201][195]! TO WORK."
  26. 550 PRINT:PRINT"    [201]F YOU CHOOSE [201][212]'[211] [205][193][199][201][195]!, MAKE"
  27. 560 PRINT:PRINT"    SURE YOU ANSWER [206][207] TO THE PROMPT"
  28. 570 PRINT:PRINT"          [213][211][197] [198][193][211][212][204][207][193][196][197][210][160]([217]/[206])?"
  29. 580 PRINT:PRINTSPC(8)"[208]RESS A KEY TO CONTINUE!"
  30. 590 PRINTSPC(8)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  31. 600 POKE198,0:WAIT198,1:POKE198,0:RETURN
  32.